(*~\Глагол\Отделы\Обмен~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Вывод;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: вывод в файл экрана                                            * 
 *============================================================================*)
ИСПОЛЬЗУЕТ
  ОС,
  Знак  ИЗ "..\Иное\",
  Текст ИЗ "..\Числа\";

(******************************************************************************)
ЗАДАЧА ЗнакЦепи-(зн:ЗНАК);
(* Выводит <зн> в файл экрана. *)
ПЕР
  зн866:ЯЧЦЕЛ;
УКАЗ
  зн866:=Знак.ВДос(зн);
  ОС.ПисатьФ(ОС.ссылкаНаВывод,зн866,1)
КОН ЗнакЦепи;

(******************************************************************************)
ЗАДАЧА Цепь-(цепь-:ЦЕПЬ);
(* Записывает цепочку знаков в файл экрана. *)
ПЕР
  поз:ЦЕЛ;
  знак:ЗНАК;
  былаВолна:КЛЮЧ;
УКАЗ
  былаВолна:=ОТКЛ;
  ОТ поз:=0 ДО ДЛИНА(цепь)-1 ВЫП
    знак:=цепь[поз];
    ЕСЛИ былаВолна ТО
      ЗнакЦепи(знак);
      былаВолна:=ОТКЛ
    ИНАЧЕ
      ЕСЛИ знак = '^' ТО
  (* Пояснение: при записи текста в поток (в т.ч. на экран)
   * знак ^ обозначает переход на новую строку и сброс данных *) 
        ЗнакЦепи(0DX);
        ЗнакЦепи(0AX)
      АЕСЛИ знак = '~' ТО
        былаВолна:=ВКЛ
      ИНАЧЕ
        ЗнакЦепи(знак)
      КОН
    КОН
  КОН
КОН Цепь;

(******************************************************************************)
ЗАДАЧА ЧЦел-(описание-:ЦЕПЬ; ц0,ц1,ц2,ц3:ШИРЦЕЛ);
(* Записывает текст из 4-х целых чисел в файл экрана,
 * используя заданное описание. *)
ПЕР
  текст:ЦЕПЬ[200];
УКАЗ
  Текст.ИзЧЦел(описание,ц0,ц1,ц2,ц3,текст);
  Цепь(текст)
КОН ЧЦел;

<*ЕСЛИ НЕ ЗАДАНО("МПГ") ТО*>
(******************************************************************************)
ЗАДАЧА ЧВещ-(описание-:ЦЕПЬ; в0,в1,в2,в3:ШИРВЕЩ);
(* Записывает текст из 4-х вещественных чисел в файл экрана,
 * используя заданное описание. *)
ПЕР
  текст:ЦЕПЬ[200];
УКАЗ
  Текст.ИзЧВещ(описание,в0,в1,в2,в3,текст);
  Цепь(текст);
КОН ЧВещ;
<*КОН*>

КОН Вывод.